function F  =   FIGs_C1_C2_C3_C4_find_flex_price(guess)
% This file finds the flexible price.
global ylsf klsf eta beta b govs delta...
       gup gi sigma wrsf wsf chi xiwf pistar gammaw 

lsf         =   guess(1);

clsf        =   ylsf - govs/lsf - (1-(1-delta)*gup^(-1)*gi^(-1))*klsf;
lsf2        =   (((sigma-1)/sigma)*(clsf)^(-1)*(1/eta)*(((gup-b) ...
                - beta*b*(1-b*gup^(-1)))/((1-b*gup^(-1))*(gup-b)))...
                *(wrsf/wsf)^(sigma*chi)*wrsf*(1-beta*xiwf*gup^(sigma-1)...
                *pistar^((sigma-1)*(1-gammaw)))^(-1)*(1-beta*xiwf*gup^(sigma*(1+chi))...
                *pistar^(sigma*(1+chi)*(1-gammaw))))^(1/(1+chi));

F           =   lsf - lsf2;


